home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / TemaCD / xsetup / setup.exe / {app} / plugins / XQ WinNT Registry Quota.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  51 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="System\Advanced System Settings"
  5. "NAME"="Windows Registry Quota"
  6. "VERSION"="1.02"
  7. "OSVERSION"="010101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Quota (MB)"
  10. "DESCRIPTION 1"="By default, Windows uses 25% of the paged pool (=swapfile, virtual memory) as the maximum size for the registry."
  11. "DESCRIPTION 2"="Normally this works well, but there are situations where this is simply not enough. In this case, simply enter the new value here. Windows will always only use until 80% of the paged pool size."
  12. "DESCRIPTION 3"="For example, if you have configured 100 MB as virtual memory, Windows will not use more than 80 MB for the registry."
  13. "DESCRIPTION 4"="Please note that changing this value does not allocate any additonal memory until its actually needed. Means, if you configure 30 MB but your Registry is only 10 MB in size, Windows will only allocate 10 MB of memory."
  14. "DESCRIPTION 5"="To have the default 25% handling back, just clear the field."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="For more information MS KB Q94993"
  19. "COMMENT 2"=""
  20.  
  21.  
  22. sV1="HKLM\System\CurrentControlSet\Control\RegistrySizeLimit"
  23. Sub Plugin_Initialize 
  24.   i=RegReadValue(sV1)
  25.   if IsEmpty(i)=false then
  26.      Call SetUIElement(1,i)
  27.   end if
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  i=GetUIElement(1)
  35.  if len(i)>0 then
  36.     Call RegWriteValue(sV1,i,2)
  37.  else
  38.     if RegValueExists(sV1) then
  39.        Call RegDeleteValue(sV1)
  40.     end if
  41.  end if
  42.  
  43.  Call Restart()
  44. End Sub
  45.  
  46. Sub Plugin_Terminate 
  47. End Sub
  48.  
  49.  
  50.  
  51.